#!/bin/sh
#
# This script uses the virtual disk autochanger
#
TestName="multi-storage-test"
JobName=backup
. scripts/functions

scripts/cleanup
scripts/copy-2disk-confs
scripts/prepare-disk-changer

# create a new susan-sd.confs
for i in 2 3 4; do
  perl -ne "\$i='$i';\$tmp='$tmp';"'
  if (/Name =/ ) { $_ =~ s/-sd/-$i-sd/}
  if (/SDPort = /) { $_ =~ s/(\d+)/1810$i/}
  if (/mediatype = /) { $_ =~ s/FileMedia/FileMedia$i/}
  if (/WorkingDirectory/) { $_ =~ s:working:tmp/$i:}
  if (/Pid Directory/) { $_ =~ s:working:tmp/$i:}
  if (/(Archive|Changer) Device/) { $_ =~ s:$tmp:$tmp/$i:}
  print;
  ' $conf/susan-sd.conf > $conf/susan-sd$i.conf
  mkdir -p ${tmp}/$i
  sed "s/susan-sd.conf/susan-sd${i}.conf/"  ${scripts}/susan-ctl-sd \
      > $tmp/susan-ctl-sd$i
  chmod +x $tmp/susan-ctl-sd$i
  mkdir -p $tmp/$i
done

# Patch up susan-dir.conf
perl -ne '
if (/^Storage {/) { $in=1; $nb++; }
if (/^}/) { $in=0 }
if (/SDPort = (\d+)/ && $in) {if ($nb == 2) { $_ = "  SDPort = 18102\n"; }}
if (/SDPort = (\d+)/ && $in) {if ($nb == 3) { $_ = "  SDPort = 18103\n"; }}
if (/SDPort = (\d+)/ && $in) {if ($nb == 4) { $_ = "  SDPort = 18104\n"; }}
print;
' $conf/susan-dir.conf > $tmp/1
cp $tmp/1 $conf/susan-dir.conf

disable_plugins


# Directory to backup.
# This directory will be created by setup_data().
BackupDirectory="${tmp}/data"

# Use a tgz to setup data to be backed up.
# Data will be placed at "${tmp}/data/".
setup_data data/small.tgz

# the default fileset FS_TESTJOB backups all file and directories defined in "${tmp}/file-list".
echo "${BackupDirectory}" >${tmp}/file-list



change_jobname $JobName
start_test

# Stop SDs
for sd in 2 3 4; do
  $tmp/susan-ctl-sd$sd stop &> /dev/null
done

sleep 2

# Start SDs
for sd in 2 3 4; do
  $tmp/susan-ctl-sd$sd start &> /dev/null
done

# Write out bconsole commands
cat <<END_OF_DATA >${cwd}/tmp/bconcmds
@out /dev/null
messages
@$out ${cwd}/tmp/log1.out
label storage=tape volume=TestVolume001 Pool=Default slot=1 drive=0
label storage=File  volume=TestVolume002 Pool=Default
label storage=File2 volume=File2-Vol001 Pool=Default
label storage=File3 volume=File3-Vol001 Pool=Default
label storage=File4 volume=File4-Vol001 Pool=Default
run job=$JobName storage=tape yes
wait
messages
@exec "touch $BackupDirectory/fr.po"
run job=$JobName storage=File yes
wait
messages
@exec "touch $BackupDirectory/de.po"
run job=$JobName storage=File2 yes
wait
messages
@exec "touch $BackupDirectory/it.po"
run job=$JobName storage=File3 yes
wait
messages
@exec "touch $BackupDirectory/es.po"
run job=$JobName storage=File4 yes
wait
messages
quit
END_OF_DATA

run_susan

echo "ficheriro1.txt" >${BackupDirectory}/ficheriro1.txt
echo "ficheriro2.txt" >${BackupDirectory}/ficheriro2.txt


cat <<END_OF_DATA >${cwd}/tmp/bconcmds
@out /dev/null
messages
@$out ${cwd}/tmp/log1.out
@# Force Incremental on the second Volume
@exec "touch $BackupDirectory/fi.po"
run level=Incremental storage=File job=$JobName yes
wait
messages
@exec "touch $BackupDirectory/uk.po"
run level=Incremental storage=File2 job=$JobName yes
wait
messages
@exec "touch $BackupDirectory/sv.po $BackupDirectory/test.po"
run level=Incremental storage=File3 job=$JobName yes
wait
messages
@exec "touch $BackupDirectory/README"
run level=Incremental storage=File4 job=$JobName yes
wait
messages
@#
@# now do a restore
@#
@$out ${cwd}/tmp/log22.out
setdebug trace=1 level=110 client
setdebug trace=1 level=110 director
restore where=${cwd}/tmp/susan-restores select all done yes
wait
messages
@$out ${cwd}/tmp/status.out
status all
@exec "touch $BackupDirectory/POTFILES"
@$out ${cwd}/tmp/log1.out
run level=Incremental storage=File4 job=$JobName yes
wait
messages
@# run a job that will wait for a volume
@$out ${cwd}/tmp/log23.out
@exec "touch $BackupDirectory/ChangeLog"
run level=Incremental pool=Special storage=File3 job=$JobName yes
@sleep 5
messages
status dir
status storage=File3
@sleep 3
@#
@# now do a restore with a backup that takes a drive
@#
setdebug trace=1 level=110 client
setdebug trace=1 level=110 director
restore where=${cwd}/tmp/susan-restores select all done yes
@sleep 10
messages
status dir
label storage=File3 volume=test3 pool=Special
mount storage=File3
wait
messages
show storage
sql
select * FROM Storage;
select VolumeName, Name, StorageId, MediaType FROM Media JOIN Storage USING (StorageId);

quit
END_OF_DATA

run_bconsole

check_for_zombie_jobs storage=File
check_for_zombie_jobs storage=File2
check_for_zombie_jobs storage=File3
check_for_zombie_jobs storage=File4
check_for_zombie_jobs storage=tape

stop_susan
for sd in 2 3 4; do
  $tmp/susan-ctl-sd$sd stop &> /dev/null
done

# we have two restore to test
cp $tmp/log22.out $tmp/log2.out
check_two_logs
cp $tmp/log23.out $tmp/log2.out
check_two_logs

check_restore_diff

end_test
